home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / LF.LSP < prev    next >
Text File  |  1992-09-13  |  603b  |  21 lines

  1. ;      TURNS THE LAYER OFF......................LF
  2. ;      THEN TURNS IT BACK ON WHEN NEEDED........LO
  3. ;
  4. (defun c:LF (/ a b c d)
  5. (graphscr)
  6. (prompt "\nSelect Object on Layer to OFF...")
  7. (setq a (entsel))
  8. (setq b (entget (car a)))
  9. (setq LO (cdr (assoc 8 b)))
  10. (setq d (getvar "CLAYER"))
  11. (if (= LO d)
  12.   (prompt "\nCannot turn off Current Layer, Change to New Layer...")
  13.   (command "layer" "OF" LO "")
  14. ))
  15. ;EOF LF
  16. ;               THIS BEGINS LAON.LSP
  17. (DEFUN C:LO()
  18. (COMMAND"LAYER""ON" LO ""))
  19. ;EOF LO
  20. (princ "\nType LF to turn off layers selected")
  21. (princ "\nType LO to turn layers back on")